home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / bbs / filelister146.lha / Rexx / Upload.Trans < prev   
Text File  |  1994-09-13  |  452b  |  20 lines
  1. /* Upload.Trans fuer den Filelister, falls MemoryLamer=NO */
  2.  
  3. options results
  4.  
  5. systeminfo 2 ; currentarea=result
  6. bbsidentify term
  7. bbsline=strip(word(result,4))
  8.  
  9. /* Schauen, ob Filelister ueberhaupt aktiv ist */
  10. befehl="host=show('P','FILELISTER."||bbsline||"')"
  11. interpret befehl
  12.  
  13. /* Wenn ja, dann die aktuelle Filearea rescannen */
  14. if host then do
  15.   befehl="address 'FILELISTER."||bbsline||"' 'RESCAN "||currentarea||"'"
  16.   interpret befehl
  17. end
  18.  
  19. exit 0
  20.